home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
TECHNICA
/
AUTOCAD
/
H107.ZIP
/
APR91.ZIP
/
TIP645.LSP
< prev
next >
Wrap
Text File
|
1991-04-11
|
268b
|
12 lines
;TIP645.LSP Edit Text or Attributes (c)1991, Steve Kloehr
(defun C:DD ()
(setvar "CMDECHO" 0)
(setq X (entget(car(setq E (entsel)))))
(setq S (cadr E))
(if (= (cdr (assoc 0 X)) "TEXT")
(command "DDEDIT" S "")
(command "DDATTE" S)
)
)